home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet multimedia / Animacje, filmy i prezentacje / Modelowanie 3D / K-3D 0.6.5.0 / k3d-all-in-one-setup-0.6.5.0.exe / k3d-setup-0.6.5.0.exe / share / lsystem / cees-plant.ls < prev    next >
Encoding:
Text File  |  2005-02-12  |  327 b   |  16 lines
  1. # --- plant01.ls ------C.J. van der Mark jr. ----------------------------------
  2. 10
  3. 20
  4. 20
  5. q
  6. q=[p][>(90)-(90)g(50).+(90)c(4)?(1)[x]]>(90)-(90)g(100).+(90)[p]
  7. p=sp
  8. s={ab[+Zh]<(90)ab[-Zh]}
  9. a=Z+(5)a
  10. b=Z-(5)b
  11. d=Z{[+++e.][++ee.][+eee.][eeee.][-eee.][--ee.][---e.]}
  12. h=cZZZt(3.2)$[++[++ZZd]ZZd][--[--ZZd]ZZd]ZZd
  13. x=Z(60)!(0.90)x
  14. e=t!g
  15. @
  16.